unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages,
  System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes,
  System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs,
  FMX.ZYJ.HintWindow, FMX.ZYJ.Win.MessageManager;

type
  TForm2 = class(TForm)
    ZYJHintWindow1: TZYJHintWindow;
    Button1: TButton;
    Button2: TButton;
    ZYJWinMessageManager1: TZYJWinMessageManager;
    procedure FormCreate(Sender: TObject);
    procedure ZYJWinMessageManager1WinMessage(hWd:HWND; var Message: TMessage);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.fmx}

procedure TForm2.FormCreate(Sender: TObject);
begin
//  ZYJHintWindow1.AddControlTips(Button1, 'assssssssssssssssssss');
//  ZYJHintWindow1.AddControlTips(Button2, 'ffff');
end;

procedure TForm2.ZYJWinMessageManager1WinMessage(hWd: HWND; var Message: TMessage);
begin
// if Message.Msg = WM_MOUSEMOVE then
// begin
//    Message.Result := 1;
//    OutputDebugString('MouseMove2');
// end;
end;

end.
